321 GAMES/321GAMES.iso/logic/oracle/shared.dxr/01091_SHARED SCRIPT.ls

Text File | 1994-12-20 | 1.2 KB | 48 lines

on clearVars totalClear
  global screenRect, cipherPath, puzzle, gemStatus, facing, hex, animName, Jewel, oracleSpeakData, difficultyLevel, music, k, visitedPuzz, randomPlace, MEMORY
  if totalClear then
    set data to ["screenRect", "cipherPath", "music", "k"]
  else
    set data to ["screenRect", "cipherPath", "puzzle", "gemStatus", "facing", "Hex", "animName", "Jewel", "oracleSpeakData", "difficultyLevel", "music", "k", "visitedPuzz", "randomPlace", "MEMORY"]
  end if
  set localpuzzle to 0
  set localscreenRect to 0
  set localcipherPath to 0
  set localgemStatus to 0
  set localfacing to 0
  set localHex to 0
  set localanimName to 0
  set localJewel to 0
  set localoracleSpeakData to 0
  set localdifficultyLevel to 0
  set localmusic to 0
  set localk to 0
  set localvisitedPuzz to 0
  set localrandomPlace to 0
  set localMEMORY to 0
  repeat with counter = 1 to count(data)
    do("set local" & getAt(data, counter) & " to " & getAt(data, counter))
  end repeat
  clearGlobals()
  repeat with counter = 1 to count(data)
    do("set " & getAt(data, counter) & " to local" & getAt(data, counter))
  end repeat
end

on keyDown
  exit
end

on idle
  myIdle()
end

on myIdle
  updateCursor()
end

on updateCursor
  global csrChannel
  updateStage()
end